package Server;
require Exporter;
@ISA = Exporter;
@EXPORT = qw(Show,Say,Cal);

sub new
{
    $class = shift;
    bless{Name=>$_[0],Age=>$_[1]};
}
sub Show
{
    $this = shift;
    foreach (keys %$this)
    {
        print "$_:$this->{$_}\n";
    }
}
sub Say
{
    $this = shift;
    print "Hi,$this->{Name}\n";
}
sub Cal
{
    shift;
    return $_[0]+$_[1];
}
1;
